home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / graphics / brush / brush.frm < prev    next >
Text File  |  1994-07-14  |  13KB  |  401 lines
  1. VERSION 2.00
  2. Begin Form frmBrush 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "PatternBrush-Demo"
  6.    ClientHeight    =   3735
  7.    ClientLeft      =   1050
  8.    ClientTop       =   1800
  9.    ClientWidth     =   7365
  10.    DrawStyle       =   5  'Transparent
  11.    FillStyle       =   0  'Solid
  12.    Height          =   4140
  13.    Left            =   990
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    ScaleHeight     =   3735
  17.    ScaleWidth      =   7365
  18.    Top             =   1455
  19.    Width           =   7485
  20.    Begin SSCommand cmdInfo 
  21.       Font3D          =   0  'None
  22.       Height          =   600
  23.       Left            =   270
  24.       Picture         =   BRUSH.FRX:0000
  25.       TabIndex        =   10
  26.       Top             =   2940
  27.       Width           =   600
  28.    End
  29.    Begin CommandButton cmdSave 
  30.       Caption         =   "&Save Bitmaps to disk"
  31.       Height          =   405
  32.       Left            =   3060
  33.       TabIndex        =   9
  34.       Top             =   3120
  35.       Width           =   2535
  36.    End
  37.    Begin CommandButton cmdForm 
  38.       Cancel          =   -1  'True
  39.       Caption         =   " &Ok"
  40.       Default         =   -1  'True
  41.       Height          =   405
  42.       Index           =   0
  43.       Left            =   5760
  44.       TabIndex        =   5
  45.       Top             =   3120
  46.       Width           =   1365
  47.    End
  48.    Begin SSPanel panel 
  49.       Align           =   1  'Align Top
  50.       Alignment       =   0  'Left Justify - TOP
  51.       BackColor       =   &H00C0C0C0&
  52.       BevelInner      =   2  'Raised
  53.       BorderWidth     =   1
  54.       Font3D          =   3  'Inset w/light shading
  55.       ForeColor       =   &H00800000&
  56.       Height          =   675
  57.       Left            =   0
  58.       Outline         =   -1  'True
  59.       TabIndex        =   1
  60.       Top             =   0
  61.       Width           =   7365
  62.       Begin SSOption opt 
  63.          Caption         =   "Brush Panel"
  64.          Font3D          =   0  'None
  65.          Height          =   195
  66.          Index           =   1
  67.          Left            =   5670
  68.          TabIndex        =   7
  69.          TabStop         =   0   'False
  70.          Top             =   360
  71.          Width           =   1365
  72.       End
  73.       Begin SSOption opt 
  74.          Caption         =   "Brush Form"
  75.          Font3D          =   0  'None
  76.          Height          =   195
  77.          Index           =   0
  78.          Left            =   5670
  79.          TabIndex        =   6
  80.          Top             =   120
  81.          Value           =   -1  'True
  82.          Width           =   1365
  83.       End
  84.       Begin SSRibbon cmd 
  85.          AutoSize        =   0  'None
  86.          BackColor       =   &H00C0C0C0&
  87.          Height          =   375
  88.          Index           =   11
  89.          Left            =   4230
  90.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  91.          PictureUp       =   BRUSH.FRX:0302
  92.          Top             =   150
  93.          Width           =   375
  94.       End
  95.       Begin SSRibbon cmd 
  96.          AutoSize        =   0  'None
  97.          BackColor       =   &H00C0C0C0&
  98.          Height          =   375
  99.          Index           =   13
  100.          Left            =   4950
  101.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  102.          PictureUp       =   BRUSH.FRX:039C
  103.          Top             =   150
  104.          Width           =   375
  105.       End
  106.       Begin SSRibbon cmd 
  107.          AutoSize        =   0  'None
  108.          BackColor       =   &H00C0C0C0&
  109.          Height          =   375
  110.          Index           =   12
  111.          Left            =   4590
  112.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  113.          PictureUp       =   BRUSH.FRX:0436
  114.          Top             =   150
  115.          Width           =   375
  116.       End
  117.       Begin SSRibbon cmd 
  118.          AutoSize        =   0  'None
  119.          BackColor       =   &H00C0C0C0&
  120.          Height          =   375
  121.          Index           =   10
  122.          Left            =   3870
  123.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  124.          PictureUp       =   BRUSH.FRX:04D0
  125.          Top             =   150
  126.          Width           =   375
  127.       End
  128.       Begin SSRibbon cmd 
  129.          AutoSize        =   0  'None
  130.          BackColor       =   &H00C0C0C0&
  131.          Height          =   375
  132.          Index           =   3
  133.          Left            =   1260
  134.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  135.          PictureUp       =   BRUSH.FRX:056A
  136.          Top             =   150
  137.          Width           =   375
  138.       End
  139.       Begin SSRibbon cmd 
  140.          AutoSize        =   0  'None
  141.          BackColor       =   &H00C0C0C0&
  142.          Height          =   375
  143.          Index           =   7
  144.          Left            =   2700
  145.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  146.          PictureUp       =   BRUSH.FRX:0604
  147.          Top             =   150
  148.          Width           =   375
  149.       End
  150.       Begin SSRibbon cmd 
  151.          AutoSize        =   0  'None
  152.          BackColor       =   &H00C0C0C0&
  153.          Height          =   375
  154.          Index           =   4
  155.          Left            =   1620
  156.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  157.          PictureUp       =   BRUSH.FRX:069E
  158.          Top             =   150
  159.          Width           =   375
  160.       End
  161.       Begin SSRibbon cmd 
  162.          AutoSize        =   0  'None
  163.          BackColor       =   &H00C0C0C0&
  164.          Height          =   375
  165.          Index           =   5
  166.          Left            =   1980
  167.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  168.          PictureUp       =   BRUSH.FRX:0B18
  169.          Top             =   150
  170.          Width           =   375
  171.       End
  172.       Begin SSRibbon cmd 
  173.          AutoSize        =   0  'None
  174.          BackColor       =   &H00C0C0C0&
  175.          Height          =   375
  176.          Index           =   2
  177.          Left            =   900
  178.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  179.          PictureUp       =   BRUSH.FRX:0BB2
  180.          Top             =   150
  181.          Width           =   375
  182.       End
  183.       Begin SSRibbon cmd 
  184.          AutoSize        =   0  'None
  185.          BackColor       =   &H00C0C0C0&
  186.          Height          =   375
  187.          Index           =   6
  188.          Left            =   2340
  189.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  190.          PictureUp       =   BRUSH.FRX:0C4C
  191.          Top             =   150
  192.          Width           =   375
  193.       End
  194.       Begin SSRibbon cmd 
  195.          AutoSize        =   0  'None
  196.          BackColor       =   &H00C0C0C0&
  197.          Height          =   375
  198.          Index           =   1
  199.          Left            =   540
  200.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  201.          PictureUp       =   BRUSH.FRX:0CE6
  202.          Top             =   150
  203.          Width           =   375
  204.       End
  205.       Begin SSRibbon cmd 
  206.          AutoSize        =   0  'None
  207.          BackColor       =   &H00C0C0C0&
  208.          Height          =   375
  209.          Index           =   9
  210.          Left            =   3510
  211.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  212.          PictureUp       =   BRUSH.FRX:0D80
  213.          Top             =   150
  214.          Width           =   375
  215.       End
  216.       Begin SSRibbon cmd 
  217.          AutoSize        =   0  'None
  218.          BackColor       =   &H00C0C0C0&
  219.          Height          =   375
  220.          Index           =   8
  221.          Left            =   3150
  222.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  223.          PictureUp       =   BRUSH.FRX:0E1A
  224.          Top             =   150
  225.          Width           =   375
  226.       End
  227.       Begin SSRibbon cmd 
  228.          AutoSize        =   0  'None
  229.          BackColor       =   &H00C0C0C0&
  230.          Height          =   375
  231.          Index           =   0
  232.          Left            =   180
  233.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  234.          PictureUp       =   BRUSH.FRX:0EB4
  235.          Top             =   150
  236.          Width           =   375
  237.       End
  238.    End
  239.    Begin Label Label2 
  240.       AutoSize        =   -1  'True
  241.       BackStyle       =   0  'Transparent
  242.       Caption         =   "[ Control_Brush control, any.picture, borderwidth% ]"
  243.       FontBold        =   -1  'True
  244.       FontItalic      =   0   'False
  245.       FontName        =   "MS Sans Serif"
  246.       FontSize        =   12
  247.       FontStrikethru  =   0   'False
  248.       FontUnderline   =   0   'False
  249.       ForeColor       =   &H00808080&
  250.       Height          =   300
  251.       Index           =   3
  252.       Left            =   990
  253.       TabIndex        =   0
  254.       Top             =   1890
  255.       Width           =   6195
  256.    End
  257.    Begin Label Label1 
  258.       AutoSize        =   -1  'True
  259.       BackStyle       =   0  'Transparent
  260.       Caption         =   "This is all you need to do:"
  261.       FontBold        =   -1  'True
  262.       FontItalic      =   0   'False
  263.       FontName        =   "MS Sans Serif"
  264.       FontSize        =   12
  265.       FontStrikethru  =   0   'False
  266.       FontUnderline   =   -1  'True
  267.       Height          =   300
  268.       Left            =   180
  269.       TabIndex        =   2
  270.       Top             =   930
  271.       Width           =   3060
  272.    End
  273.    Begin Label Label2 
  274.       AutoSize        =   -1  'True
  275.       BackStyle       =   0  'Transparent
  276.       Caption         =   "Brush_Form Me, any.picture"
  277.       FontBold        =   -1  'True
  278.       FontItalic      =   0   'False
  279.       FontName        =   "MS Sans Serif"
  280.       FontSize        =   12
  281.       FontStrikethru  =   0   'False
  282.       FontUnderline   =   0   'False
  283.       ForeColor       =   &H00800000&
  284.       Height          =   300
  285.       Index           =   0
  286.       Left            =   990
  287.       TabIndex        =   3
  288.       Top             =   1590
  289.       Width           =   3390
  290.    End
  291.    Begin Label Label2 
  292.       AutoSize        =   -1  'True
  293.       BackStyle       =   0  'Transparent
  294.       Caption         =   "sub Form_Paint()"
  295.       FontBold        =   -1  'True
  296.       FontItalic      =   0   'False
  297.       FontName        =   "MS Sans Serif"
  298.       FontSize        =   12
  299.       FontStrikethru  =   0   'False
  300.       FontUnderline   =   0   'False
  301.       ForeColor       =   &H00800000&
  302.       Height          =   300
  303.       Index           =   1
  304.       Left            =   810
  305.       TabIndex        =   4
  306.       Top             =   1290
  307.       Width           =   2085
  308.    End
  309.    Begin Label Label2 
  310.       AutoSize        =   -1  'True
  311.       BackStyle       =   0  'Transparent
  312.       Caption         =   "End Sub"
  313.       FontBold        =   -1  'True
  314.       FontItalic      =   0   'False
  315.       FontName        =   "MS Sans Serif"
  316.       FontSize        =   12
  317.       FontStrikethru  =   0   'False
  318.       FontUnderline   =   0   'False
  319.       ForeColor       =   &H00800000&
  320.       Height          =   300
  321.       Index           =   2
  322.       Left            =   810
  323.       TabIndex        =   8
  324.       Top             =   2220
  325.       Width           =   1050
  326.    End
  327. End
  328. Dim curFormBMP%, curPanelBMP%
  329.  
  330. Sub cmd_Click (Index As Integer, Value As Integer)
  331.     Dim bmp%
  332.     If Value Then bmp = cmd(Index).PictureUp
  333.     If opt(0) Then
  334.        curFormBMP = bmp
  335.     Else
  336.        curPanelBMP = bmp
  337.        If Value = False Then panel.Refresh
  338.     End If
  339.     
  340.     Refresh     '-- Calls Form_Paint()
  341. End Sub
  342.  
  343. Sub cmdForm_Click (Index As Integer)
  344.     Unload Me
  345. End Sub
  346.  
  347. Sub cmdInfo_Click ()
  348.     frmInfo.Show 1
  349. End Sub
  350.  
  351. Sub cmdSave_Click ()
  352.     Dim i%, n$
  353.     On Error Resume Next
  354.     screen.MousePointer = 11
  355.     
  356.     For i = 0 To 13
  357.         n = app.Path & "\BRUSH_" & i & ".BMP"
  358.         If FileLen(n) Then
  359.            screen.MousePointer = 0
  360.            MsgBox "Bitmaps already saved!", 48, "Info"
  361.            Exit Sub
  362.         End If
  363.  
  364.         SavePicture cmd(i).PictureUp, n
  365.         If Err Then
  366.            screen.MousePointer = 0
  367.            MsgBox "Err (#" & Err & ") - Could not save bitmaps!", 48, "Error"
  368.            i = 0
  369.            Exit Sub
  370.         End If
  371.     Next
  372.  
  373.     screen.MousePointer = 0
  374.     MsgBox "Bitmaps successfully saved to " & app.Path & "\BRUSH_1.BMP - BRUSH13.BMP", 64, "Info"
  375.     
  376. End Sub
  377.  
  378. Sub Form_Load ()
  379.     frmInfo.Show 1
  380.     form_center Me
  381.     
  382.   ' Load patterns ( normally not needed )
  383.   ' -------------------------------------
  384.     curFormBMP = cmd(1).PictureUp
  385.     curPanelBMP = cmd(3).PictureUp
  386. End Sub
  387.  
  388. Sub form_paint ()
  389.     If opt(0) Then
  390.        brush_form Me, curFormBMP
  391.     Else
  392.        brush_control panel, curPanelBMP, panel.BorderWidth * 4
  393.     End If
  394. End Sub
  395.  
  396. Sub opt_Click (Index As Integer, Value As Integer)
  397.     panel.Refresh
  398.     Refresh
  399. End Sub
  400.  
  401.